home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir28 / opt312.zip / OPTC411.EQU < prev    next >
Text File  |  1993-12-04  |  3KB  |  21 lines

  1. "AST1CAL3 EQUATION VARIABLE","12-04-1993","14:45:33"
  2. "OBJECT_DISTANCE=S[O]+(1-SIGN(ABS(S[O])))*S[I]*R1*R2/(S[I]*(R2-R1)*(N[L]/(N[M]+1E-30)-1)-R2*R1) IMAGE_DISTANCE=S[I]+(1-SIGN(ABS(S[I])))*S[O]*R1*R2/(S[O]*(R2-R1)*(N[L]/(N[M]+1E-30)-1)-R2*R1) INDEX_L=N[L]+(1-SIGN(ABS(N[L])))*(R1*R2*(S[I]+S[O])/(S[O]*S[I]+1E-30)/(R2-R1+1E-30)+1)*N[M] INDEX_M=N[M]+(1-SIGN(ABS(N[M])))*1/((R1*R2*(S[I]+S[O])/(S[O]*S[I]+1E-30)/(R2-R1+1E-30)+1))*N[L] RADIUS_1=R1+(1-SIGN(ABS(R1)))*R2*S[I]*S[O]*(N[L]/(N[M]+1E-30)-1)/(S[I]*S[O]*(N[L]/(N[M]+1E-30)-1)+R2*(S[I]+S[O])+1E-30) RADIUS_2=R2+(1-SIGN(ABS(R2)))*R1*S[I]*S[O]*(N[L]/(N[M]+1E-30)-1)/(S[I]*S[O]*(N[L]/(N[M]+1E-30)-1)-R1*(S[I]+S[O])+1E-30) FOCAL_LENGTH=RADIUS_1*RADIUS_2/(RADIUS_2-RADIUS_1)/(INDEX_L/INDEX_M-1)"
  3. "THIN SPHERICAL LENS EQUATION, LENSMAKER'S FORMULA.             A diagram of the Problem is shown below. Surface is represented by 's'.                            · s ·                    R1 radius at center C1                       ray   · °s·    s °  ·              R2 radius at center C2                         · °  s    ° ·  s    °  ·         V1 vertex of sphere 1                     · °      s     R1   °s ·       °  ·   V2 vertex of sphere 2                 o······o·····sV1·······V2s····°··o········o  S source point                     S      C2 ° ·s       n[l]s       C1       P  P image point                                    s° ·R2    s                    S[O] Source distance                     n[m]      s  ° ·s                      S[I] Image distance                                   s                       |V2-V1|<< S[O] or S[I].              |--------S[O]------|-----------S[I]-------|  (c) Copyright PCSCC, Inc., 1993  Sign Convention:  S[O] + means its left of vertex V2       focal_length < 0                       S[I] + means its right  of vertex V1       means                                R?   + means center C is right of V      diverging lens       *** Answer(s) to problem ***        Type any key to exit.                       Variables are set to proper values at entry.  Note, value of unknown should be  set to 0.0.  Enter any 5 of 6 knowns, program calculates missing (=0) one.      (a) R1=1e6, R2=-4, S[I]=10. (b) R1=4, R2=1e6, S[I]=10.  Designate a plane with  R=large number.||A source is 20 cm from a glass (ng=1.6) convex-plano lens with a radius of curvature of 4 cm. Where is the image located (a) when its flat     surface faces source and (b) when its flat surface is away from source?             Type comma key to see answer. Type (F2) to return to application file."
  4. 13
  5. 20,0,""
  6. 9.999940000359998,0,""
  7. 1.6,0,""
  8. 1,0,""
  9. 1000000,0,""
  10. -4,0,""
  11. 6.666640000106666,0,""
  12. 20,0,""
  13. -4,0,""
  14. 1000000,0,""
  15. 1,0,""
  16. 1.6,0,""
  17. 0,0,""
  18. 1
  19. 0
  20. 0
  21.